﻿Public Class BakanlikYazilari
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Bakanlık/Arşiv Yazıları Kayıt/Değişiklik"
				InitialHelp = "Sigorta veya Kimlik numarasını girin."
				' AddCombo("uyruk", "Uyruğu", "TC|KKTC", "width=6", "TC")
				AddSigortali()

				AddIsyeri()
				StartBody()
				AddText("Pasaport", "Pasaport No.", "width=10;nl", "")
				AddDate("BelgeTarihi", "Belge Tarih", "nl", DMY(Today))
				AddDate("islemTarihi", "Kayıt Tarih", "nl", DMY(Today))
				AddText("SiraNo", "Sıra No.", "width=20;nl")
				AddText("Konu", "Konu", "width=60;nl", "", "Konu sahası boş bırakılamaz !")
				AddCombo("Servis", "Servis", "İşveren|Sigortalı|Bordro|Emeklilik", "width=6;nl", "İşveren")
				AddText("rowid", "Kayıt SeriNo", "width=6;nl")


			Case EventType.ValidateForm
				Enabled("rowid") = False

				Rs = Remote.OpenSQL("select *  from SSD..BelgeTakip where  sno=:~sno and isyerino=:~isyerino", Input("sigortali"), Input("isyeri"))
				If Rs.EOF Then
					If Check("BelgeTarihi", Not Confirm("Sorguladığınız Sigorta numarasına uyan kayıt bulunamadı. Yeni kayıt mı girmek istiyorsunuz?")) Then Exit Sub
				Else
					SetValues("Pasaport,BelgeTarihi,islemTarihi,Konu,Sirano,Servis,rowid", Rs("Pasaport"), Rs("belgeTarih"), Rs("islemtar"), Rs("Konu"), Rs("Sirano"), Rs("Servis"), Rs("rowid"))
				End If
				e.Result = True
				Buttons.Show("Save.Delete.Reset")
			Case EventType.Save
				' Sno,kimlik,pasaport,isyerino,belgeTarih,islemtar,Konu,Sirano,Sube,Servis,rowid

				Rs = Remote.OpenSQL("select *  from SSD..BelgeTakip where  sno=:~sigortali and isyerino=:~isyeri", Input("sigortali"), Input("isyeri"))
				If Rs.EOF Then	'Insert
					Dim TmpRS As Recordset = Sigortali.SnoAra(Remote, Input("sigortali"))

					Rs.AddNew()
					Rs.SetValues("Sno,kimlik,pasaport,ad,soyad,isyerino,belgeTarih,islemtar,Konu,Kaykul,Sirano,Sube,Servis", _
						  Input("sigortali"), TmpRS("kimlik"), Input("Pasaport"), TmpRS("adi"), TmpRS("soyadi"), Input("isyeri"), _
						  Input("BelgeTarihi"), DMY(Remote.SysDate), Input("Konu"), User.Kaykul, Input("SiraNo"), CStr(User.Kaykul).Substring(0, 1), Input("Servis"))
					Rs.Save()
				Else ' Update
					Rs.SetValues("Sno,pasaport,isyerino,belgeTarih,islemtar,Konu,Kaykul,Sirano,Servis", _
					  Input("sigortali"), Input("Pasaport"), Input("isyeri"), Input("BelgeTarihi"), DMY(Remote.SysDate), Input("Konu"), User.Kaykul, Input("SiraNo"), Input("Servis"))
					Rs.Save()
				End If

				Info("Kayıt işlemi başarıyla tamamlanmıştır.")
				ResetForm()

			Case EventType.Delete

				If Not Confirm("Bu seçili kaydı tamamen silmek istediğinize emin misiniz?") Then Exit Sub
				If Not (Input("rowid") = "") Then
					Remote.ExecSQL("delete from SSD..BelgeTakip where rowid = @rowid", Input("rowid"))
					Info("Silme işlemi başarıyla tamamlanmıştır.")
				Else
					Warning("Silinecek bir kayıt yok !")
				End If

				ResetForm()
		End Select
	End Sub

End Class

'Public Class SbIsv_BakanlikDosyaArama
'    Inherits ProcessReport

'    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
'        Select Case e.EventType
'            Case EventType.Initialize
'                Text ="Sağlık Yardımı talebinde bulunan Emekli Sigortalı Arama"
'                InitialHelp = "Ad,Soyad bilgilerini girin."
'                AddCombo("uyruk", "Uyruğu", "Hepsi|TC|KKTC", "width=6", "Hepsi")
'                AddField("Ad")
'                AddField("Soyad", "nl")
'                AddDateRange("Tarih", "", YMD("01/01/" & Today.Date.Year - 5), YMD(Today.Date), "Lütfen Tarih Aralığı seçiniz!", "")
'                AddCombo("Siralama", "Sıralama", "DOSYA_NO,Dosya No|AD,Adı|SOYAD,Soyadı|ilkKayitTarihi,Kayıt Tarihi|islemtar,Güncellenme Tarihi|DTAR,Doğum Tarihi", "width=12;nl", "islemtar")
'                'StartBody()
'                'AddList()
'                'List.AddColumns("AD(Adı;l;30%),SOYAD(Soyadı;l;30%),DOSYA_NO(DosyaNo;l;80),TC_KKTC(Uyruk;r;100),DTAR(Doğum Tar.;d;100),KKTC_KIMLIK(Kimlik[HTürü-kararno];r;130)")
'                ' Display()
'                Landscape = True

'            Case EventType.ValidateForm

'                Rs = Yurtdisi.EmekliSaglikYardKayRapor(Remote, Input("Tarih1"), Input("Tarih2"), Input("uyruk"), Input("ad"), Input("Soyad"), Input("Siralama"))
'                If Rs.Empty Then
'                    Warning("Aradığınız kriterlere uygun kayıt bulunamadı !")
'                    Buttons.Show("Reset")
'                    Focus("Tarih1")
'                    Exit Sub
'                End If

'                e.Result = True

'            Case EventType.ReportHeader

'                'Dim Rs2 As Recordset = Kasa.KmahsupOku(Me, Input("Yil"), Input("Fisno"))
'                Report.PrintHeader("Yurt Dışı Emekli Sağlık Yardım Raporu")
'                Report.PrintPageHeader(Input("Tarih1") & " ve " & Input("Tarih2") & " Tarihleri arasındaki kayıtlar ")

'            Case EventType.PageHeader
'                ' Report.SetColumns("Hesap No.;Hesap Adı;Adet;Tutar", "2;8;1;2", "c;l;n;m", "--")
'                Report.SetColumns("SıraNo;Ad;Soyad;DosyaNo;Uyruk;Doğum Tar.;Kimlik/HT-KNo;Kayıt Tar.;İşlem Tar.", _
'                                  "1;4;4;2;3;3;4;3;3", "r;l;l;r;r;d;r;d;d", "")
'            Case EventType.ReportDetail
'                Dim Sira As Integer = 1
'                Do Until Rs.EOF
'                    Report.Print(Sira, Rs("AD"), Rs("SOYAD"), Rs("DOSYA_NO"), Rs("TC_KKTC"), Rs("DTAR"), Rs("KKTC_KIMLIK"), Rs("ilkKayitTarihi"), Rs("islemtar"))
'                    Rs.MoveNext()
'                    Sira += 1
'                Loop

'                Buttons.Show("Reset")
'        End Select
'    End Sub


'End Class
